Magnum One

home *** CD-ROM | disk | FTP | other *** search

/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / norpt.arc / NORPT.LST < prev next >

Wrap

File List | 1989-08-28 | 20.6 KB | 592 lines

Microsoft (R) Macro Assembler Version 5.10 4/17/89 02:01:56 Page 1-1 1 ; 2 ; 3 ; Thomas Nofsinger 4 ; cccc ASM 290 5 ; 4/17/89 6 ; 7 ; PROGRAM LISTING FOR NORPT.COM 8 ; 9 ; THIS PROGRAM WILL TURN OFF THE REPEAT FUNCTION OF THE KEYBOARD, 10 ; AND STAY MEMORY RESIDENT. IT I S CODED FOR MY HARDWARE AND MAY NOT 11 ; WORK ON ALL CLONES AND REAL PC' S. 12 ; 13 14 0000 CSEG SEGMENT 15 ASSUME CS:CSEG ;NO STACK SEG! 16 17 0100 ORG 100H ;A .COM file 18 0100 BEGIN: 19 20 0100 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 21 0102 B3 0F MOV BL,15 22 0104 B0 4E MOV AL,'N' 23 0106 B9 0001 MOV CX,1 24 0109 B4 0E MOV AH,14 25 010B CD 10 INT 10h 26 27 010D B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 28 010F B3 0F MOV BL,15 29 0111 B0 4F MOV AL,'O' 30 0113 B9 0001 MOV CX,1 31 0116 B4 0E MOV AH,14 32 0118 CD 10 INT 10h 33 34 011A B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 35 011C B3 0F MOV BL,15 36 011E B0 52 MOV AL,'R' 37 0120 B9 0001 MOV CX,1 38 0123 B4 0E MOV AH,14 39 0125 CD 10 INT 10h 40 41 0127 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 42 0129 B3 0F MOV BL,15 43 012B B0 50 MOV AL,'P' 44 012D B9 0001 MOV CX,1 45 0130 B4 0E MOV AH,14 Microsoft (R) Macro Assembler Version 5.10 4/17/89 02:01:56 Page 1-2 46 0132 CD 10 INT 10h 47 48 0134 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 49 0136 B3 0F MOV BL,15 50 0138 B0 54 MOV AL,'T' 51 013A B9 0001 MOV CX,1 52 013D B4 0E MOV AH,14 53 013F CD 10 INT 10h 54 55 0141 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 56 0143 B3 0F MOV BL,15 57 0145 B0 20 MOV AL,' ' 58 0147 B9 0001 MOV CX,1 59 014A B4 0E MOV AH,14 60 014C CD 10 INT 10h 61 62 ;* MOV BH,0 ;COPY RIGHT NOTICE WITHOUT IO.LIB 63 014E B3 0F MOV BL,15 64 0150 B0 49 MOV AL,'I' 65 0152 B9 0001 MOV CX,1 66 0155 B4 0E MOV AH,14 67 0157 CD 10 INT 10h 68 69 0159 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 70 015B B3 0F MOV BL,15 71 015D B0 4E MOV AL,'N' 72 015F B9 0001 MOV CX,1 73 0162 B4 0E MOV AH,14 74 0164 CD 10 INT 10h 75 76 0166 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 77 0168 B3 0F MOV BL,15 78 016A B0 53 MOV AL,'S' 79 016C B9 0001 MOV CX,1 80 016F B4 0E MOV AH,14 81 0171 CD 10 INT 10h 82 83 0173 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 84 0175 B3 0F MOV BL,15 85 0177 B0 54 MOV AL,'T' 86 0179 B9 0001 MOV CX,1 87 017C B4 0E MOV AH,14 88 017E CD 10 INT 10h 89 90 0180 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 91 0182 B3 0F MOV BL,15 92 0184 B0 41 MOV AL,'A' Microsoft (R) Macro Assembler Version 5.10 4/17/89 02:01:56 Page 1-3 93 0186 B9 0001 MOV CX,1 94 0189 B4 0E MOV AH,14 95 018B CD 10 INT 10h 96 97 018D B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 98 018F B3 0F MOV BL,15 99 0191 B0 4C MOV AL,'L' 100 0193 B9 0001 MOV CX,1 101 0196 B4 0E MOV AH,14 102 0198 CD 10 INT 10h 103 104 019A B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 105 019C B3 0F MOV BL,15 106 019E B0 4C MOV AL,'L' 107 01A0 B9 0001 MOV CX,1 108 01A3 B4 0E MOV AH,14 109 01A5 CD 10 INT 10h 110 111 01A7 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 112 01A9 B3 0F MOV BL,15 113 01AB B0 45 MOV AL,'E' 114 01AD B9 0001 MOV CX,1 115 01B0 B4 0E MOV AH,14 116 01B2 CD 10 INT 10h 117 118 01B4 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 119 01B6 B3 0F MOV BL,15 120 01B8 B0 44 MOV AL,'D' 121 01BA B9 0001 MOV CX,1 122 01BD B4 0E MOV AH,14 123 01BF CD 10 INT 10H 124 125 01C1 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 126 01C3 B3 0F MOV BL,15 127 01C5 B0 20 MOV AL,' ' 128 01C7 B9 0001 MOV CX,1 129 01CA B4 0E MOV AH,14 130 01CC CD 10 INT 10h 131 132 01CE B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 133 01D0 B3 0F MOV BL,15 134 01D2 B0 20 MOV AL,' ' 135 01D4 B9 0001 MOV CX,1 136 01D7 B4 0E MOV AH,14 137 01D9 CD 10 INT 10h 138 139 01DB B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB Microsoft (R) Macro Assembler Version 5.10 4/17/89 02:01:56 Page 1-4 140 01DD B3 0F MOV BL,15 141 01DF B0 20 MOV AL,' ' 142 01E1 B9 0001 MOV CX,1 143 01E4 B4 0E MOV AH,14 144 01E6 CD 10 INT 10h 145 146 01E8 CD 10 INT 10h 147 01EA B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 148 01EC B3 0F MOV BL,15 149 01EE B0 43 MOV AL,'C' 150 01F0 B9 0001 MOV CX,1 151 01F3 B4 0E MOV AH,14 152 01F5 CD 10 INT 10h 153 154 01F7 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 155 01F9 B3 0F MOV BL,15 156 01FB B0 4F MOV AL,'O' 157 01FD B9 0001 MOV CX,1 158 0200 B4 0E MOV AH,14 159 0202 CD 10 INT 10h 160 161 0204 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 162 0206 B3 0F MOV BL,15 163 0208 B0 50 MOV AL,'P' 164 020A B9 0001 MOV CX,1 165 020D B4 0E MOV AH,14 166 020F CD 10 INT 10h 167 168 0211 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 169 0213 B3 0F MOV BL,15 170 0215 B0 59 MOV AL,'Y' 171 0217 B9 0001 MOV CX,1 172 021A B4 0E MOV AH,14 173 021C CD 10 INT 10h 174 175 021E B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 176 0220 B3 0F MOV BL,15 177 0222 B0 52 MOV AL,'R' 178 0224 B9 0001 MOV CX,1 179 0227 B4 0E MOV AH,14 180 0229 CD 10 INT 10h 181 182 022B B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 183 022D B3 0F MOV BL,15 184 022F B0 49 MOV AL,'I' 185 0231 B9 0001 MOV CX,1 186 0234 B4 0E MOV AH,14 187 0236 CD 10 INT 10h Microsoft (R) Macro Assembler Version 5.10 4/17/89 02:01:56 Page 1-5 188 189 0238 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 190 023A B3 0F MOV BL,15 191 023C B0 47 MOV AL,'G' 192 023E B9 0001 MOV CX,1 193 0241 B4 0E MOV AH,14 194 0243 CD 10 INT 10h 195 196 0245 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 197 0247 B3 0F MOV BL,15 198 0249 B0 48 MOV AL,'H' 199 024B B9 0001 MOV CX,1 200 024E B4 0E MOV AH,14 201 0250 CD 10 INT 10h 202 203 0252 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 204 0254 B3 0F MOV BL,15 205 0256 B0 54 MOV AL,'T' 206 0258 B9 0001 MOV CX,1 207 025B B4 0E MOV AH,14 208 025D CD 10 INT 10h 209 210 025F B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 211 0261 B3 0F MOV BL,15 212 0263 B0 20 MOV AL,' ' 213 0265 B9 0001 MOV CX,1 214 0268 B4 0E MOV AH,14 215 026A CD 10 INT 10h 216 217 026C B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 218 026E B3 0F MOV BL,15 219 0270 B0 31 MOV AL,'1' 220 0272 B9 0001 MOV CX,1 221 0275 B4 0E MOV AH,14 222 0277 CD 10 INT 10h 223 224 0279 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 225 027B B3 0F MOV BL,15 226 027D B0 39 MOV AL,'9' 227 027F B9 0001 MOV CX,1 228 0282 B4 0E MOV AH,14 229 0284 CD 10 INT 10h 230 231 0286 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 232 0288 B3 0F MOV BL,15 233 028A B0 38 MOV AL,'8' 234 028C B9 0001 MOV CX,1 Microsoft (R) Macro Assembler Version 5.10 4/17/89 02:01:56 Page 1-6 235 028F B4 0E MOV AH,14 236 0291 CD 10 INT 10h 237 238 0293 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 239 0295 B3 0F MOV BL,15 240 0297 B0 39 MOV AL,'9' 241 0299 B9 0001 MOV CX,1 242 029C B4 0E MOV AH,14 243 029E CD 10 INT 10h 244 245 02A0 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 246 02A2 B3 0F MOV BL,15 247 02A4 B0 20 MOV AL,' ' 248 02A6 B9 0001 MOV CX,1 249 02A9 B4 0E MOV AH,14 250 02AB CD 10 INT 10h 251 252 02AD B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 253 02AF B3 0F MOV BL,15 254 02B1 B0 4E MOV AL,'N' 255 02B3 B9 0001 MOV CX,1 256 02B6 B4 0E MOV AH,14 257 02B8 CD 10 INT 10h 258 259 02BA B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 260 02BC B3 0F MOV BL,15 261 02BE B0 4F MOV AL,'O' 262 02C0 B9 0001 MOV CX,1 263 02C3 B4 0E MOV AH,14 264 02C5 CD 10 INT 10h 265 266 02C7 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 267 02C9 B3 0F MOV BL,15 268 02CB B0 46 MOV AL,'F' 269 02CD B9 0001 MOV CX,1 270 02D0 B4 0E MOV AH,14 271 02D2 CD 10 INT 10h 272 273 02D4 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 274 02D6 B3 0F MOV BL,15 275 02D8 B0 53 MOV AL,'S' 276 02DA B9 0001 MOV CX,1 277 02DD B4 0E MOV AH,14 278 02DF CD 10 INT 10h 279 280 02E1 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 281 02E3 B3 0F MOV BL,15 Microsoft (R) Macro Assembler Version 5.10 4/17/89 02:01:56 Page 1-7 282 02E5 B0 49 MOV AL,'I' 283 02E7 B9 0001 MOV CX,1 284 02EA B4 0E MOV AH,14 285 02EC CD 10 INT 10h 286 287 02EE B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 288 02F0 B3 0F MOV BL,15 289 02F2 B0 4E MOV AL,'N' 290 02F4 B9 0001 MOV CX,1 291 02F7 B4 0E MOV AH,14 292 02F9 CD 10 INT 10h 293 294 02FB B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 295 02FD B3 0F MOV BL,15 296 02FF B0 47 MOV AL,'G' 297 0301 B9 0001 MOV CX,1 298 0304 B4 0E MOV AH,14 299 0306 CD 10 INT 10h 300 301 0308 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 302 030A B3 0F MOV BL,15 303 030C B0 45 MOV AL,'E' 304 030E B9 0001 MOV CX,1 305 0311 B4 0E MOV AH,14 306 0313 CD 10 INT 10h 307 308 0315 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 309 0317 B3 0F MOV BL,15 310 0319 B0 52 MOV AL,'R' 311 031B B9 0001 MOV CX,1 312 031E B4 0E MOV AH,14 313 0320 CD 10 INT 10h 314 315 0322 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 316 0324 B3 0F MOV BL,15 317 0326 B0 2C MOV AL,',' 318 0328 B9 0001 MOV CX,1 319 032B B4 0E MOV AH,14 320 032D CD 10 INT 10h 321 322 032F B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 323 0331 B3 0F MOV BL,15 324 0333 B0 20 MOV AL,' ' 325 0335 B9 0001 MOV CX,1 326 0338 B4 0E MOV AH,14 327 033A CD 10 INT 10h 328 329 033C B7 00 MOV BH,0 ;COPYRI Microsoft (R) Macro Assembler Version 5.10 4/17/89 02:01:56 Page 1-8 GHT NOTICE WITHOUT IO.LIB 330 033E B3 0F MOV BL,15 331 0340 B0 54 MOV AL,'T' 332 0342 B9 0001 MOV CX,1 333 0345 B4 0E MOV AH,14 334 0347 CD 10 INT 10h 335 336 0349 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 337 034B B3 0F MOV BL,15 338 034D B0 48 MOV AL,'H' 339 034F B9 0001 MOV CX,1 340 0352 B4 0E MOV AH,14 341 0354 CD 10 INT 10h 342 343 0356 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 344 0358 B3 0F MOV BL,15 345 035A B0 4F MOV AL,'O' 346 035C B9 0001 MOV CX,1 347 035F B4 0E MOV AH,14 348 0361 CD 10 INT 10h 349 350 0363 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 351 0365 B3 0F MOV BL,15 352 0367 B0 4D MOV AL,'M' 353 0369 B9 0001 MOV CX,1 354 036C B4 0E MOV AH,14 355 036E CD 10 INT 10h 356 357 0370 B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 358 0372 B3 0F MOV BL,15 359 0374 B0 41 MOV AL,'A' 360 0376 B9 0001 MOV CX,1 361 0379 B4 0E MOV AH,14 362 037B CD 10 INT 10h 363 364 037D B7 00 MOV BH,0 ;COPYRI GHT NOTICE WITHOUT IO.LIB 365 037F B3 0F MOV BL,15 366 0381 B0 53 MOV AL,'S' 367 0383 B9 0001 MOV CX,1 368 0386 B4 0E MOV AH,14 369 0388 CD 10 INT 10h 370 371 372 038A EB 30 90 JMP START 373 374 038D 00000000 BIOS_INT_9 DD ? 375 0391 00 LASTKEY DB ? 376 377 0392 INT9_TASK PROC FAR Microsoft (R) Macro Assembler Version 5.10 4/17/89 02:01:56 Page 1-9 378 379 ASSUME DS:nothing 380 381 0392 50 PUSH AX 382 383 0393 E4 60 IN AL,60h ;READ P ORT A OF 8255 FOR KEYS 384 385 0395 A8 80 TEST AL,80h ;TEST F OR BREAK KEY 386 387 0397 75 17 JNZ KEY_IN ;IT IS A BR EAK KEY - TAKE IT IN 388 389 0399 2E: 3A 06 0391 R CMP AL,LASTKEY 390 039E 75 10 JNZ KEY_IN ;KEY TO PRO CESS 391 392 03A0 E4 61 IN AL,61h ;FEED P ORT B ON THE 8255 A HIGH BIT 7 393 03A2 0C 80 OR AL,80h ;TO ACK DATA 394 03A4 E6 61 OUT 61H,AL 395 03A6 24 7F AND AL,7Fh ;CLEAR BIT 7 (LOW) 396 03A8 E6 61 OUT 61h,AL 397 398 03AA B0 20 MOV AL,20h ;HARDWA RE INTERRUPT DONE 399 03AC E6 20 OUT 20h,AL ;SIGNAL TO THE 8255 400 401 03AE 58 POP AX 402 03AF CF IRET ;DUPED KEY STROKE --> BIT BUCKET 403 404 03B0 KEY_IN: 405 406 03B0 2E: A2 0391 R MOV LASTKEY,AL ;SAVE K EY FOR NEXT CYCLE 407 03B4 9C PUSHF 408 03B5 2E: FF 1E 038D R CALL BIOS_INT_9 ;PASS T O BIOS TO PROCESS THE KEY 409 03BA 58 POP AX 410 03BB CF IRET 411 412 = 03BC End_Resident EQU $ 413 414 03BC INT9_TASK ENDP 415 416 417 03BC START PROC NEAR 418 419 ASSUME DS:CSEG Microsoft (R) Macro Assembler Version 5.10 4/17/89 02:01:56 Page 1-10 420 421 03BC C6 06 0391 R 80 MOV LASTKEY,80h ;intiali ze LASTKEY 422 423 03C1 B0 09 MOV AL,9 ;READ A ND RECORD BIOS INT 9 VECTOR 424 03C3 B4 35 MOV AH,35h 425 03C5 CD 21 INT 21h 426 03C7 89 1E 038D R MOV WORD PTR BIOS_INT_9,BX 427 03CB 8C 06 038F R MOV WORD PTR BIOS_INT_9[2], ES 428 429 03CF BA 0392 R MOV DX,offset INT9_TASK ;POINT INT 9 VECTOR TO THIS TASK 430 03D2 B0 09 MOV AL,9 431 03D4 B4 25 MOV AH,25h 432 03D6 CD 21 INT 21h 433 434 03D8 8D 16 03BC R LEA DX,End_Resident ;TSR 435 03DC CD 27 INT 27h 436 437 03DE START ENDP 438 03DE CSEG ENDS 439 END BEGIN Microsoft (R) Macro Assembler Version 5.10 4/17/89 02:01:56 Symbols-1 Segments and Groups: N a m e Length Align Combine Class CSEG . . . . . . . . . . . . . . 03DE PARA NONE Symbols: N a m e Type Value Attr BEGIN . . . . . . . . . . . . . L NEAR 0100 CSEG BIOS_INT_9 . . . . . . . . . . . L DWORD 038D CSEG END_RESIDENT . . . . . . . . . . NEAR 03BC CSEG INT9_TASK . . . . . . . . . . . F PROC 0392 CSEG Length = 002A KEY_IN . . . . . . . . . . . . . L NEAR 03B0 CSEG LASTKEY . . . . . . . . . . . . L BYTE 0391 CSEG START . . . . . . . . . . . . . N PROC 03BC CSEG Length = 0022 @CPU . . . . . . . . . . . . . . TEXT 0101h @FILENAME . . . . . . . . . . . TEXT norpt @VERSION . . . . . . . . . . . . TEXT 510 439 Source Lines 439 Total Lines 13 Symbols 47188 + 312550 Bytes symbol space free 0 Warning Errors 0 Severe Errors